home *** CD-ROM | disk | FTP | other *** search
/ Hackers Matrix / Hacker's Matrix (nCite Software) (2003).iso / Data / hack0665.ZIP / telnet.mrc next >
Text File  |  2000-01-27  |  2KB  |  58 lines
  1. alias telnet {
  2.   window -e @telnetmIRC 100 75 600 350
  3.   telnet.stats Type Your Commands Here!
  4.   telnet.stats For Example: To connect to earthlink's e-mail server, you would type: telnet smtp.earthlink.net 110
  5.   telnet.stats After the first telnet command, you may then execute other commands from within these Unix systems. Enjoy!
  6. }
  7. alias -l telnet.error {
  8.   echo @telnetmIRC  $+ $colour(info) $+ *** $1-
  9. }
  10. alias -l telnet.stats {
  11.   echo @telnetmIRC  $+ $colour(info2) $+ *** $1-
  12. }
  13. alias -l telnet.br {
  14.   echo @telnetmIRC $chr(160)
  15. }
  16. on *:CLOSE:@telnetmIRC: {
  17.   if ($sock(telnet) != $null) { sockclose telnet }
  18.   haltdef
  19.   return
  20. }
  21. on *:input:@telnetmIRC: {
  22.   if ($left($1,1) == /) { return }
  23.   if ($1 = exit) { 
  24.     if ($sock(telnet) != $null) { sockclose telnet }
  25.     telnet.error Disconnected... 
  26.     window -c @telnetmIRC 
  27.     haltdef
  28.     return
  29.   }
  30.   if ($sock(telnet) == $null) && ($1 != telnet) { telnet.error Not Telneted To Anything Yet! | haltdef | return }
  31.   if ($1 == telnet) {
  32.     if ($2 == $null) { telnet.error Invalid Address! }
  33.     if ($3 == $null) { telnet.error Invalid Port! | haltdef | return }
  34.     if ($sock(telnet) != $null) { telnet.error Disconnected... | telnet.br | sockclose telnet }
  35.     sockopen telnet $2 $3
  36.     set %telnet.host $2
  37.     set %telnet.port $3
  38.     haltdef
  39.     return
  40.   }
  41.   if ($1 == quit) { telnet.error Telnet Connection Closed! | telnet.br | sockclose telnet | haltdef | return }
  42.   sockwrite -n telnet $1-
  43.   haltdef
  44.   return
  45. }
  46. on *:sockopen:telnet: {
  47.   telnet.stats Telneting To:  $+ %telnet.host $+  ||| Port:  $+ %telnet.port $+ 
  48. }
  49. on *:sockread:telnet: {
  50.   if ($sockerr > 0) { telnet.error Error Receiving Information...Closing | sockclose telnet | haltdef | return }
  51.   sockread %tmp.telnet.sockread
  52.   telnet.stats %tmp.telnet.sockread
  53. }
  54. on *:sockclose:telnet: {
  55.   telnet.error Disconnected From Remote Computer!
  56.   telnet.br
  57. }
  58.